home *** CD-ROM | disk | FTP | other *** search
/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / graphics / turtle_2 / Procedures / PLANETS < prev    next >
Encoding:
Text File  |  1991-08-04  |  2.3 KB  |  191 lines
  1. INFO
  2. CLEAR
  3. DISPLAY
  4. COLOUR 1 
  5. PEN UP
  6. LEFT 90
  7. FORWARD 100
  8. RIGHT 90
  9. FORWARD 70
  10. WRITE PLANETS
  11. BACKWARDS 15
  12. WRITE You are a trainee starship commander.
  13. BACKWARDS 10
  14. WRITE You must explore the solar system by visiting
  15. BACKWARDS 10
  16. WRITE all the planets and then make a safe return to
  17. BACKWARDS 10
  18. WRITE your own planet.
  19. MORE
  20. END
  21.  
  22. MORE
  23. BACKWARDS 15
  24. WRITE * try to use as few commands as possible
  25. BACKWARDS 10
  26. WRITE * try to make 'soft' landings on the planets
  27. BACKWARDS 10
  28. WRITE * try to use as little fuel as possible
  29. BACKWARDS 15
  30. MORE2
  31. END
  32.  
  33. MORE2
  34. WRITE KEEP A CLEAR RECORD OF ALL YOUR COMMANDS.
  35. BACKWARDS 20
  36. WRITE Type PLANETS <return> to begin.
  37. BACKWARDS 15
  38. WRITE Type IDEAS <return> for more ideas.
  39. BACKWARDS 20
  40. DISPLAY
  41. END
  42.  
  43. IDEAS
  44. CLEAR
  45. DISPLAY
  46. COLOUR 3
  47. PEN UP
  48. LEFT 90
  49. FORWARD 100
  50. RIGHT 90
  51. FORWARD 70
  52. WRITE IDEAS
  53. BACKWARDS 20
  54. WRITE If you have enough fuel to travel 500 units
  55. BACKWARDS 10
  56. WRITE only, work out a journey which visits as
  57. BACKWARDS 10
  58. WRITE many planets as possible.
  59. BACKWARDS 20
  60. WRITE Instead of landing, try to orbit the planets.
  61. BACKWARDS 10
  62. MORE3
  63. END
  64.  
  65. MORE3
  66. WRITE (you may find the REPEAT command useful here)
  67. BACKWARDS 20
  68. WRITE Type NM 14 <return> followed by PLANETS <return>.
  69. BACKWARDS 10
  70. WRITE Now try to orbit all of the planets!
  71. BACKWARDS 20
  72. WRITE Create a planets scene of your own.
  73. BACKWARDS 20
  74. DISPLAY
  75. CO 1
  76. END
  77.  
  78. ONE
  79. COLOUR 1
  80. PEN UP
  81. RIGHT 90
  82. FORWARD 12*NM
  83. LEFT 90
  84. FORWARD 7*NM
  85. FILL
  86. CIRCLE 2*NM
  87. END FILL
  88. COLOUR 2
  89. CIRCLE 2*NM
  90. CIRCLE 2*NM+1
  91. PEN UP
  92. HOME CURSOR
  93. END
  94.  
  95. TWO
  96. PEN UP
  97. COLOUR 6
  98. RIGHT 90
  99. BACKWARDS 10*NM
  100. LEFT 90
  101. FORWARD 7*NM
  102. FILL
  103. CIRCLE NM
  104. END FILL
  105. COLOUR 4
  106. CIRCLE NM
  107. CIRCLE NM+1
  108. PEN UP
  109. HOME CURSOR
  110. END
  111.  
  112. THREE
  113. COLOUR 12
  114. PEN UP
  115. RIGHT 90
  116. BACKWARDS 11*NM
  117. LEFT 90
  118. BACKWARDS 2*NM
  119. FILL
  120. CIRCLE 1.2*NM
  121. END FILL
  122. COLOUR 13
  123. CIRCLE 1.2*NM
  124. CIRCLE 1.2*NM+1
  125. PEN UP
  126. HOME CURSOR
  127. END
  128.  
  129. FOUR
  130. COLOUR 11
  131. PEN UP
  132. RIGHT 90
  133. CURSOR UP -5*NM
  134. BACKWARDS 2*NM
  135. FILL
  136. CIRCLE .7*NM
  137. END FILL
  138. COLOUR 15
  139. CIRCLE .7*NM
  140. CIRCLE .7*NM+1
  141. PEN UP
  142. HOME CURSOR
  143. END
  144.  
  145. FIVE
  146. COLOUR 4
  147. PEN UP
  148. RIGHT 90
  149. FORWARD 9*NM
  150. CURSOR UP -3*NM
  151. FILL
  152. CIRCLE 2.5*NM
  153. END FILL
  154. COLOUR 7
  155. CIRCLE 2.5*NM
  156. CIRCLE 2.5*NM+1
  157. PEN UP
  158. HOME CURSOR
  159. END
  160.  
  161. BASE
  162. COLOUR 7
  163. PEN DOWN
  164. FILL
  165. CIRCLE 1.8*NM
  166. END FILL
  167. COLOUR 9
  168. CIRCLE 1.8*NM
  169. CIRCLE 1.8*NM+1
  170. PEN UP
  171. CURSOR RIGHT -8
  172. WRITE Base
  173. HOME CURSOR
  174. END
  175.  
  176. PLANETS
  177. CLEAR
  178. DISPLAY
  179. BASE
  180. ONE
  181. TWO
  182. THREE
  183. FOUR
  184. FIVE
  185. FORWARD 1.8*NM+1
  186. PEN DOWN
  187. COLOUR 3
  188. DISPLAY 
  189. END
  190.  
  191.